home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / Contributions / Workbench / Prefs / T.H.E. / REXX / CloseActiveWin.rexx next >
OS/2 REXX Batch file  |  1999-11-06  |  292b  |  17 lines
  1. /*
  2.    $VER: CloseActiveWin.rexx 1.2 (06.11.99) Copyright (c) Nils Görs & Luca Danelon.
  3.  
  4.    Closes the active workbench window.
  5. */
  6.  
  7. options results
  8.  
  9. ADDRESS WORKBENCH
  10.  
  11. GETATTR OBJECT WINDOWS.ACTIVE
  12.  
  13. IF result ~= "root" THEN activewin = result
  14.         ELSE EXIT
  15.  
  16. WINDOW '"' || activewin || '"' CLOSE
  17.